home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Graphisoft / US English / ArchiCAD / ArchiCAD 4.5-68K / ArchiCAD Library / 08 Doors & Windows / Window Macros / round_frame < prev    next >
Encoding:
Text File  |  1994-03-24  |  790 b   |  50 lines  |  [TEXT/GSAC]
  1. !round_frame  /modified 2/16/94***VL/
  2. !internal macro: -
  3.  
  4. !dx=a,dy=b,frame width=c,
  5. !frame thickness=d,grid width=z,resolution
  6. r=f
  7. z=e
  8. e=a/2
  9. f=b/2
  10. g=a/2-c
  11. h=b/2-c
  12. i=g-z
  13. j=h-z
  14.  
  15. addy b/2
  16.  
  17. s=360/r
  18.  
  19. for w= s to 360 step s
  20. 11:   Put e*cos(w), f*sin(w), 13
  21. next w
  22. for w= s to 360 step s
  23. 12:  Put g*cos(w), h*sin(w), 13+64
  24. next w
  25.  
  26. prism_  4+nsp/3,d,
  27.         e,0,13,
  28.         get(nsp/2),        !!! buffer 11-frame outline
  29.         e,0,-1,
  30.         g,0,13,
  31.         use(nsp),           !!! buffer12-hole contour kept for internal frame outline
  32.    g,0,-1
  33.  
  34. for w= s to 360 step s
  35. 13:   Put i*cos(w), j*sin(w), 13+64
  36. next w
  37.  
  38. addz d/4
  39. prism_  4+nsp/3,d/2,
  40.    g,0,13,
  41.    get(nsp/2),            !!! buffer 12-the same parameters as for the hole contour   
  42.    g,0,-1,
  43.    i,0,13,
  44.    get(nsp),
  45.    i,0,-1
  46.  
  47. end
  48.  
  49.  
  50.